home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / DEPRECIATION STRAIGHT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  645b  |  28 lines
  1. 5  PRINT " STRIGHT LINE DEPRECIATION PROGRAM"
  2. 10  REM  THIS PROGRAM COMPUTES VALUE DEPRECIATION
  3. 20  REM  BY THE STRIGHT LINE MENTHOD
  4. 30  PRINT "ORIGINAL VALUE=";
  5. 40  INPUT A
  6. 50  PRINT "LIFETIME IN YEARS=";
  7. 60  INPUT B
  8. 70  LET C = A/B
  9. 80  PRINT "YEARLY DEPRECIATION=";C
  10. 90  PRINT 
  11. 100  PRINT "YEAR","VALUE"
  12. 110  LET X = 0
  13. 120  LET X = X +1
  14. 130  LET A = A -C
  15. 140  IF A <0  THEN  GOTO 160
  16. 150  GOTO 170
  17. 160  LET A = 0
  18. 170  PRINT X,A
  19. 180  IF X <B  THEN  GOTO 120
  20. 190  PRINT "********************"
  21. 200  PRINT "TYPE 1 TO CONTINUE, 0 TO STOP"
  22. 210  INPUT L
  23. 220  IF L = 1  THEN  GOTO 240
  24. 230  PRINT "STOP"
  25. 235  GOTO 260
  26. 240  PRINT 
  27. 250  GOTO 30
  28. 260  END